
FOR EACH pt_mstr WHERE pt_status = "AC" AND pt_part BEGINS "18" AND pt_pm_code = "M" EXCLUSIVE-LOCK,
    EACH ptp_det WHERE ptp_part = pt_part 
                   AND (ptp_pm_code = "P") EXCLUSIVE-LOCK,
    EACH sct_det WHERE sct_part = pt_part AND sct_site = ptp_site 
                   AND sct_sim = "standard" AND sct_cst_tot > 0 NO-LOCK:
    IF ptp__chr01 = "C" THEN
       DISPLAY pt_part pt_added ptp_pm_code ptp_site ptp__chr01 sct_cst_tot pt_desc1 WITH WIDTH 200.
END.
